home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD022a.dsk / WHY FIDGET.bas < prev   
BASIC Source File  |  2003-06-12  |  12KB  |  76 lines

  1. 1  HOME : PRINT "   F  I  D     APPLE II FILE DEVELOPER": PRINT "---=--=--=-----=====-==-====-=========--": POKE 34,3: HOME :S = 1:Q$ =  CHR$(34)
  2. 5  GOSUB 10: GOSUB 481: GOSUB 31: GOSUB 481: GOSUB 54: GOSUB 481: GOSUB 74: GOSUB 481: GOSUB 86: GOSUB 481: GOSUB 104: GOSUB 481: GOSUB 126: GOSUB 481: GOSUB 144: GOSUB 481: GOSUB 160: GOSUB 481: GOSUB 180: GOSUB 481: GOSUB 196: GOSUB 481: GOSUB 212: GOSUB 481: GOSUB 229: GOSUB 481: GOSUB 243: GOSUB 481: GOSUB 266: GOSUB 481: GOSUB 287: GOSUB 481: GOSUB 306: GOSUB 481: GOSUB 322: GOSUB 481: GOSUB 336: GOSUB 481
  3. 7  GOSUB 350: GOSUB 481: GOSUB 370: GOSUB 481: GOSUB 380: GOSUB 481: GOSUB 397: GOSUB 481: GOSUB 418:: GOSUB 481: GOSUB 430: GOSUB 481: GOSUB 448: GOSUB 481: GOSUB 462:A$ = "PRESS ANY KEY TO RETURN TO SOFTDISK": GOSUB 483: TEXT : PRINT : PRINT  CHR$(4)"RUNKICK.IT.OFF"
  4. 10  PRINT "AMONG THE HALF-DOZEN UTILITY PROGRAMS":S = 1: PRINT : PRINT "INCLUDED ON YOUR SYSTEM MASTER": PRINT : PRINT "DISKETTE IS A FILE CALLED "Q$"FID"Q$".": PRINT : PRINT "IT IS PERHAPS THE MOST VERSATILE OF"
  5. 18  PRINT : PRINT "ALL THOSE UTILIIES, YET IS ONLY GIVEN": PRINT : PRINT "SIX PAGES OF DESCRIPTION IN THE DOS": PRINT : PRINT "MANUAL.": PRINT : PRINT "   IF YOU ALREADY KNOW ALL ABOUT FID,"
  6. 26  PRINT : PRINT "THEN PRESS RETURN.  OTHERWISE...": PRINT : RETURN 
  7. 31  PRINT "  THIS DISCUSSION IS FOR THOSE OF YOU":S = 0: PRINT : PRINT "WHO HAVE NOT YET DISCOVERED JUST HOW": PRINT : PRINT "VERSATILE FID IS.": PRINT : PRINT "   FID CAN:"
  8. 39  PRINT : PRINT "    1) COPY FILES": PRINT "    2) REPORT UNUSED DISK SPACE": PRINT "    3) VERIFY, LOCK, UNLOCK, & DELETE": PRINT "    4) CATALOG DISKS": PRINT : PRINT : PRINT "LET'S LOOK AT EACH OF THESE CATEGORIES"
  9. 47  PRINT : PRINT "INDIVIDUALLY.": PRINT : PRINT : PRINT : RETURN 
  10. 54  PRINT "CATALOG DISKS:": PRINT : PRINT "   THIS FUNCTION DOES NOTHING YOU": PRINT : PRINT "CAN'T DO BY TYPING IN "Q$"CATALOG"Q$".": PRINT : PRINT "IT IS MAINLY USEFUL WHEN YOU ARE USING": PRINT 
  11. 62  PRINT "SOME OF THE OTHER FUNCTIONS AND WISH": PRINT : PRINT "TO LOOK AT THE CATALOG TO SEE WHAT": PRINT : PRINT "PROGRESS YOU HAVE MADE, OR WHAT STILL": PRINT : PRINT "NEEDS TO BE DONE.": PRINT 
  12. 70  PRINT : PRINT : RETURN 
  13. 74  PRINT "VERIFY, LOCK, UNLOCK, & DELETE FILES:": PRINT : PRINT "   THIS, AGAIN IS NOTHING YOU CAN'T DO": PRINT : PRINT "BY YOURSELF, BUT WITH FID'S HELP, YOU": PRINT : PRINT "CAN DO IT MUCH FASTER, AND WITH VERY": PRINT 
  14. 82  PRINT "FEW KEYPRESSES.": PRINT : RETURN 
  15. 86  PRINT "   THESE BENEFITS COME FROM FID'S": PRINT : PRINT "ABILITY TO ACT ON GROUPS OF FILES, AS": PRINT : PRINT "WELL AS ONE FILE AT A TIME.  IF YOU": PRINT : PRINT "WANTED TO DELETE THE FILE "Q$"RUBICON"Q$"": PRINT 
  16. 94  PRINT "FROM THE CATALOG, YOU WOULD SELECT <6>": PRINT : PRINT "AND WHEN PROMPTED FOR THE FILE NAME": PRINT : PRINT "YOU COULD ENTER "Q$"RUBICON"Q$", AND THE": PRINT : PRINT "FILE WOULD BE DELETED.": PRINT 
  17. 102  RETURN 
  18. 104  PRINT "   THAT PROCESS REALLY DOESN'T GAIN": PRINT : PRINT "YOU ANYTHING, THOUGH.  THE ADVANTAGE": PRINT : PRINT "OF USING FID COMES FROM THE FACT THAT": PRINT : PRINT "YOU ARE ABLE TO USE "Q$"WILDCARD"Q$"": PRINT 
  19. 112  PRINT "CHARACTERS WHEN YOU INPUT THE FILE'S": PRINT : PRINT "NAME.": PRINT : PRINT "   THE WILDCARD CHARACTER IS THE "Q$"="Q$"": PRINT : PRINT "(EQUALS SIGN).  YOU CAN REPLACE ANY": PRINT 
  20. 120  PRINT "PART, OR PARTS, OR ALL OF A FILE NAME": PRINT : PRINT "WITH "Q$"="Q$".  ": PRINT : RETURN 
  21. 126  PRINT "   THIS IS HOW THE WILDCARD CAN BE": PRINT : PRINT "USED:": PRINT : PRINT "  USING THE "Q$"RUBICON"Q$" EXAMPLE, YOU": PRINT : PRINT "  COULD SIMPLY ENTER "Q$"RUB="Q$", OR": PRINT 
  22. 134  PRINT "  "Q$"=CON"Q$", OR "Q$"=BIC="Q$", OR "Q$"R=B=N"Q$"": PRINT : PRINT "  FOR THE FILE NAME, AND THE FILE": PRINT : PRINT "  NAMED RUBICON WOULD SURELY BE": PRINT : PRINT "  DELETED (UNLESS IT WAS LOCKED).": PRINT 
  23. 142  RETURN 
  24. 144  PRINT "     BUT WAIT!  IF THERE WAS A FILE": PRINT : PRINT "  NAMED "Q$"RUBIC'S CUBE"Q$", OR "Q$"XCON"Q$",": PRINT : PRINT "  OR "Q$"FLICK MY BIC"Q$", OR "Q$"RIBBON"Q$"": PRINT : PRINT "  ON THE DISK, IT COULD BE DELETED": PRINT 
  25. 152  PRINT "  ALONG WITH RUBICON, DEPENDING ON": PRINT : PRINT "  WHERE YOU PUT YOUR WILDCARD": PRINT : PRINT "  CHARACTER.": PRINT : RETURN 
  26. 160  PRINT "     THE SOLUTION ?   WHEN FID ASKS IF": PRINT : PRINT "  YOU WANT PROMPTING, ANSWER "Q$"Y"Q$".": PRINT : PRINT "  THEN IT WILL DISPLAY EACH FILE NAME": PRINT : PRINT "  THAT MATCHES YOUR WILDCARD SETUP AND": PRINT 
  27. 168  PRINT "  GIVE YOU A CHANCE TO SELECT IT (BY": PRINT : PRINT "  ENTERING "Q$"Y"Q$"), OR BYPASS IT (BY": PRINT : PRINT "  ENTERING "Q$"N"Q$"), OR JUMP BACK TO": PRINT : PRINT "  FID'S MENU (BY ENTERING "Q$"Q"Q$").  FID": PRINT 
  28. 176  PRINT "  WILL REJECT ANY OTHER RESPONSE.": PRINT : RETURN 
  29. 180  PRINT "     OF COURSE, THE WILD CARD IS MOST": PRINT : PRINT "  USEFUL IF YOU WANT TO ACT ON A GROUP": PRINT : PRINT "  OF FILES.  YOU COULD LOCK ALL FILES": PRINT : PRINT "  BEGINNING WITH "Q$"SOFTDISK"Q$" BY": PRINT 
  30. 188  PRINT "  CHOOSING <5> FROM FID'S MENU, AND": PRINT : PRINT "  ENTERING "Q$"SOFTDISK="Q$" AS THE FILE": PRINT : PRINT "  NAME.": PRINT : RETURN 
  31. 196  PRINT "     IF YOU USE "Q$"="Q$" AS THE ENTIRE": PRINT : PRINT "  FILE NAME, FID WILL SELECT ALL THE": PRINT : PRINT "  FILES ON THE DISK.": PRINT : PRINT : PRINT "   THE WILDCARD CAN BE USED TO LOCK,"
  32. 204  PRINT : PRINT "UNLOCK, VERIFY, DELETE, AND COPY": PRINT : PRINT "FILES.": PRINT : PRINT : RETURN 
  33. 212  PRINT "   WHICH BRINGS US TO COPY:": PRINT : PRINT : PRINT "WITHOUT FID, OR SOME SIMILAR UTILITY, ": PRINT : PRINT "THE ONLY KINDS OF FILES YOU COULD": PRINT : PRINT "EASILY MOVE FROM ONE DISK TO ANOTHER"
  34. 220  PRINT : PRINT "WOULD BE PROGRAM FILES, VIA THE "Q$"LOAD"Q$: PRINT : PRINT "AND "Q$"SAVE"Q$" COMMANDS, AND BINARY": PRINT : PRINT "FILES, WITH "Q$"BLOAD"Q$" AND "Q$"BSAVE"Q$".": PRINT : RETURN 
  35. 229  PRINT "   BUT LOADING AND SAVING FILES IS A": PRINT : PRINT "CUMBERSOME PROCESS; BLOADING AND": PRINT : PRINT "BSAVING (USUALLY PRONOUNCED BEE-LOAD &": PRINT : PRINT "BEE-SAVE) IS PRONE TO ERROR; AND TEXT": PRINT 
  36. 237  PRINT "FILE TRANSFER CANNOT BE DONE WITHOUT": PRINT : PRINT "HELP OF A PROGRAM LIKE FID.": PRINT : RETURN 
  37. 243  PRINT : PRINT "   USING FID, YOU CAN COPY VIRTUALLY": PRINT : PRINT "ANY FILES FROM ONE DISK TO ANOTHER.": PRINT : PRINT "IF YOU CAN VERIFY THE FILE, YOU CAN": PRINT : PRINT "COPY IT.  ALTHOUGH IT IS EASIEST TO"
  38. 251  PRINT : PRINT "COPY USING TWO DISK DRIVES, FID WORKS": PRINT : PRINT "FINE WITH JUST ONE.": PRINT : PRINT "   USE THE WILDCARD CHARACTER THE SAME": PRINT : PRINT "WAY WITH "Q$"<1> COPY FILES"Q$" AS YOU DO"
  39. 259  PRINT : PRINT "WITH ANY OF THE OTHER FILE-ORIENTED": PRINT : PRINT "OPTIONS.": PRINT : RETURN 
  40. 266  PRINT : PRINT "   FID'S COPY OPTION CAN BE USED WHEN": PRINT : PRINT "COPYA FAILS:  THE USUAL REASON COPYA": PRINT : PRINT "WILL FAIL IS A BAD SPOT ON THE SOURCE": PRINT : PRINT "DISK.  USING FID, YOU CAN VERIFY ALL"
  41. 274  PRINT : PRINT "THE FILES ON THE SOURCE DISK (SELECT": PRINT : PRINT "FUNCTION "Q$"<8> VERIFY"Q$", AND SELECT ALL": PRINT : PRINT "FILES ("Q$"="Q$").)  THOSE THAT HAVE I/O": PRINT : PRINT "ERRORS WILL BE UN-COPIABLE.  ALL THE"
  42. 282  PRINT : PRINT "REST CAN BE TRANSFERRED TO A FRESH": PRINT : RETURN 
  43. 287  PRINT "PREVIOUSLY INITIALIZED DISK USING": PRINT : PRINT "FID'S COPY COMMAND.  SOMETIMES THE BAD": PRINT : PRINT "SPOT WAS ON AN UNUSED PART OF THE DISK": PRINT : PRINT "OR IN THE DISK OPERATING SYSTEM (THE": PRINT 
  44. 295  PRINT "OUTERMOST THREE DISK TRACKS).  IF THAT": PRINT : PRINT "IS THE CASE, THE FID DESTINATION DISK": PRINT : PRINT "SHOULD BE AS GOOD AS THE ORIGINAL WAS": PRINT : PRINT "WHEN IT WAS INTACT.": PRINT 
  45. 303  PRINT : RETURN 
  46. 306  PRINT "    SPACE ON DISK:": PRINT : PRINT "NORMALLY, ON A FRESHLY INITIALIZED": PRINT : PRINT "DISK, THERE ARE JUST UNDER 500 USABLE": PRINT : PRINT "SECTORS FOR YOUR FILES TO FILL UP.": PRINT 
  47. 314  PRINT "64 SECTORS ARE USED TO HOLD THE DISK": PRINT : PRINT "OPERATING SYSTEM, CATALOG, AND THE": PRINT : PRINT "VOLUME-TABLE-OF-CONTENTS ("Q$"VTOC"Q$").": PRINT : RETURN 
  48. 322  PRINT "INSIDE THE VTOC IS A CHART (UPDATED": PRINT : PRINT "EVERY TIME YOU CHANGE ANY FILE) THAT": PRINT : PRINT "KEEPS TRACK OF WHICH PARTS OF THE": PRINT : PRINT "DISK HAVE BEEN USED FOR STORAGE AND": PRINT 
  49. 330  PRINT "WHICH ARE EMPTY.  FID READS THE VTOC": PRINT : PRINT "AND DISPLAYS THE RESULT OF ITS COUNT.": PRINT : RETURN 
  50. 336  PRINT "  THAT'S FID.  IF YOU'VE NEVER USED IT": PRINT : PRINT "AT ALL, PERHAPS YOU SHOULD EXPERIMENT": PRINT : PRINT "WITH IT FOR A WHILE.  GET A COUPLE OF": PRINT : PRINT "DISKS WITH UNIMPORTANT FILES ON THEM": PRINT 
  51. 344  PRINT "AND PRACTICE ALL THE COMMANDS.  THE": PRINT : PRINT "EXPERIENCE CHOULD BE REWARDING.": PRINT : RETURN 
  52. 350  PRINT "": PRINT "   GREETINGS, EXPERT FID USER.": PRINT : PRINT "HOW OFTEN HAVE YOU WISHED....": PRINT : PRINT "  -- THAT YOU COULD INITIALIZE A FRESH": PRINT "     DISK WITHOUT LEAVING FID AND THEN": PRINT "     HAVING TO BRUN IT AGAIN?"
  53. 358  PRINT : PRINT "  -- THAT YOU COULD RENAME FILES WHILE": PRINT "     USING FID?": PRINT : PRINT "  -- THAT WHEN YOU USED THE WILDCARD": PRINT "     CHARACTER, YOU COULD RESPOND WITH": PRINT "     SINGLE KEY-PRESSES INSTEAD OF": PRINT "     "Q$"Y-RETURN"Q$", "Q$"N-RETURN"Q$", OR"
  54. 366  PRINT "     "Q$"Q-RETURN"Q$"?": PRINT : RETURN 
  55. 370  PRINT "   AT LAST YOUR WISHES HAVE BEEN": PRINT : PRINT "GRANTED!": PRINT : PRINT "   WISH #1 & #2 (INITIALIZE & RENAME)": PRINT : PRINT "BOTH WORK THE SAME WAY:": PRINT 
  56. 378  RETURN 
  57. 380  PRINT "  EXIT FID BY SELECTING "Q$"<9> QUIT"Q$" ": PRINT : PRINT "FROM THE MENU, OR BY RESETTING. THEN": PRINT : PRINT "USE ANY OF THE DOS HOUSEKEEPING": PRINT : PRINT "COMMANDS (INIT, RENAME, VERIFY, LOCK,": PRINT 
  58. 388  PRINT "UNLOCK, & DELETE) IN THEIR NORMAL": PRINT : PRINT "MANNER.  WHEN YOU HAVE FINISHED, TYPE": PRINT : PRINT ""Q$"CALL 2051"Q$".  FID WILL START RUNNING": PRINT : PRINT "AGAIN.": RETURN 
  59. 397  PRINT : PRINT "   THAT'S BECAUSE FID IS BLOADED INTO": PRINT : PRINT "MEMORY AT ADDRESS 2051, AND NONE OF": PRINT : PRINT "THE HOUSEKEEPING COMMANDS HAVE ANY": PRINT : PRINT "EFFECT ON THAT AREA."
  60. 405  PRINT : PRINT "   HOWEVER, IF YOU SHOULD ACCIDENTALLY": PRINT : PRINT "(OR DELIBERATELY) ENTER A NUMBER, OR A": PRINT : PRINT "PROGRAM LINE, FID WOULD BE BLOWN AWAY,": PRINT : PRINT "AND YOU COULD NOT INVOKE IT BY A"
  61. 413  PRINT : PRINT ""Q$"CALL 2051"Q$".": PRINT : RETURN 
  62. 418  PRINT : PRINT : PRINT "  WISH #3 (SINGLE KEYPRESS FILE": PRINT : PRINT "SELECTION) IS A BIT MORE COMPLICATED,": PRINT : PRINT "BUT MUCH MORE SATISFYING IN THE LONG": PRINT 
  63. 426  PRINT "RUN THAN WISH #1 OR #2.": PRINT : RETURN 
  64. 430  PRINT : PRINT "  HERE'S WHAT TO DO:": PRINT : PRINT "    1: BRUN FID (FOUND ON YOUR SYSTEM": PRINT "       MASTER DISKETTE)": PRINT : PRINT "    2: COPY THESE FILES TO A DISKETTE": PRINT "       WITH AT LEAST 50 FREE SECTORS:"
  65. 438  PRINT "         FID (FROM SYSTEM MASTER)": PRINT "         FID.TO.FIDGET.PATCH (FROM THIS": PRINT  TAB( 31)"DISK)": PRINT "    3: RESET THE COMPUTER": PRINT : PRINT "    4: TYPE "Q$"EXEC FID.TO.FIDGET.PATCH"Q$: PRINT : PRINT " THAT'S ALL.": PRINT 
  66. 446  RETURN 
  67. 448  PRINT : PRINT "  THEN THE DISK DRIVE WILL WHIR FOR A": PRINT : PRINT "MINUTE, SOME PROMPTS ("Q$"]"Q$") WILL BE": PRINT : PRINT "PRINTED, AND THE DISK DRIVE WILL STOP": PRINT : PRINT "SPINNING.  IF YOU LOOK IN THE DISKETTE"
  68. 456  PRINT : PRINT "CATALOG YOU SHOULD FIND A NEW FILE:": PRINT : PRINT ""Q$"FIDGET"Q$".": RETURN 
  69. 462  PRINT : PRINT "   FIDGET WORKS THE SAME AS FID, WITH": PRINT : PRINT "THIS EXCEPTION:  WHEN YOU USE THE": PRINT : PRINT "WILDCARD CHARACTER, AND ANSWER "Q$"YES"Q$"": PRINT : PRINT "YOU WANT PROMPTING, YOU ONLY NEED TO"
  70. 470  PRINT : PRINT "PRESS ONE KEY TO VERIFY THAT YOU WANT": PRINT : PRINT "TO PERFORM A TRANSACTION: THE RETURN": PRINT : PRINT "KEY IS SUPERFLUOUS.": PRINT : PRINT "   TRY IT, YOU'LL LIKE IT."
  71. 478  PRINT : PRINT : PRINT  TAB( 22)"JIM WEILER": RETURN 
  72. 481  RESTORE : READ K: FOR A = 1 TO  RND(1) *K +1: READ A$: NEXT : IF S  THEN A$ = "SPACE KEY"
  73. 482 A$ = "PRESS THE " +A$
  74. 483  VTAB 24: HTAB 21 - LEN(A$)/2: PRINT A$;: GET K$: IF S = 1  AND K$ =  CHR$(13)  THEN  POP :S =   NOT S: HOME : GOTO 7
  75. 486  HOME : RETURN 
  76. 487  DATA 9: DATA PIANO KEY,FLORIDA KEYS,FRANCIS SCOTT KEY,AS-CII,KEYSTONE COPS,FRONT DOOR KEY,CHURCH KEY,CAR KEYS,KEYHOLE